<%

Function dinheiro_inserir_dinheiro(id_usuario, valor, banco)

		If usuario_existe(id_usuario) then
		
				data = get_data()
		
				str = "INSERT into dinheiro_saldo "
				str = str & "(id_usuario, valor, banco, data) "
				str = str & "VALUES ('" & id_usuario & "', "
				str = str & "'" & valor & "', "		
				str = str & "'" & banco & "', "		
				str = str & "'" & data & "')"						
				Set rsI = conexao_geral.Execute(str)							
		
		End If

End Function

Function dinheiro_inserir_dinheiro_confirmar(id)

			str = "Select status, id_usuario, valor FROM dinheiro_saldo WHERE id='"&id&"'"
			Set rs = conexao_geral.Execute(str)	
			
			If rs("status")=0 then

				str = "UPDATE dinheiro_saldo SET "
				str = str & "status='1' "
				str = str & " WHERE id="&id
				Set rsI = conexao_geral.Execute(str)
				
				DIM id_usuario, valor, dinheiro
				
				id_usuario = rs("id_usuario")
				valor = rs("valor")	
				
				str = "Select dinheiro FROM usuarios where id="&id_usuario
				Set rs = conexao_geral.Execute(str)
				
				dinheiro = valor + rs("dinheiro")	
				
				str = "UPDATE usuarios SET "
				str = str & "dinheiro='"&dinheiro&"' "
				str = str & " WHERE id="&id_usuario
				Set rsI = conexao_geral.Execute(str)		
				
				usuario_registro_gravar id_usuario, "Saldo: "&valor	
				
			End If							

End Function

%>